home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / Games / dinkum3 / monster.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-05-03  |  29.0 KB  |  860 lines
  1. #define MNSTR
  2. #include "dink_sym.h"
  3. #include "dink_glb.h"
  4.  
  5. int sw_snaked = FALSE, sw_wombat = FALSE ;
  6.  
  7. #if (PROTOTYPE)
  8. void monster(int loc_pnt[3])
  9. #else
  10. monster(loc_pnt)
  11. int loc_pnt[3] ;
  12. #endif
  13. /********************************************************************/
  14. /*                                                                  */
  15. /*                  --- The Monster Subroutine ---                  */
  16. /*                                                                  */
  17. /*  monster_flag is a global variable input parameters              */
  18. /*                                                                  */
  19. /* Software by Gary A. Allen, Jr. 24 January 1993,  Version: Mk 1.6 */
  20. /*           (c) Copyright 1993 by Gary A. Allen, Jr.               */
  21. /*                                                                  */
  22. /********************************************************************/
  23. {
  24. register int j ;
  25. int sw_chasing, sw_local ;
  26. static int sw_hoop = FALSE, bear_flag = 0 ;
  27. static int sw_replaced = FALSE ;
  28. static int sw_nogo = FALSE, sw_guarded = TRUE ;
  29. static int sw_letter = FALSE ;
  30. static int count_down = 0 ;
  31.  
  32. MONSTER_STRUCT *mnstr, *mnstr_local, *mnstr_chase ;
  33.  
  34. #if (PROTOTYPE)
  35. void ender(int), long_descp(int), hold_it(void), boom(void) ;
  36. void ned_kills(void), mullah_kills(void) ;
  37. void see_letter(int*, int*) ;
  38. void chief_mullah(int*) ;
  39. int bribe_mullah(int*) ;
  40. void chaser(MONSTER_STRUCT*, int[3]) ;
  41. #else
  42. int bribe_mullah() ;
  43. #endif
  44.  
  45. /* set up some of the input variables */
  46. sw_chasing = FALSE ; /* turn off the chasing monster switch */
  47. sw_local = FALSE ;   /* turn off the local monster switch */
  48.  
  49. /* There can be no active monsters while in the closet */
  50. if (loc_pnt[0] == R_closet) {
  51.     monster_flag = F_no_monster ;
  52.     if (sw_letter == TRUE) {
  53.         sw_letter = FALSE ;
  54.         sw_nogo = TRUE ;
  55. printf("\nYou hear a loud \"BOOM!\" from the Prayer Room followed\n");
  56. printf("by the sounds of people shouting and cursing in Farsi. I\n");
  57. printf("think it is definitely time that we leave.\n") ;
  58.     }
  59.     return ;
  60. }
  61.  
  62. /* scan the enemy table for the local and/or chasing monsters */
  63. for (j = 0; j <= Enemy_cnt; j++) {
  64.     mnstr = (monster_start + j) ;  /* point to the monster */
  65.     if (mnstr->Location == loc_pnt[0]) {
  66.         sw_local = TRUE;
  67.         mnstr_local = mnstr ;
  68.     }
  69.     else if (mnstr->Status != F_asleep){
  70.         if ((N_mullah == j)||(N_guards == j)||((N_ned == j)&&
  71.         (mnstr->Status == F_stealing))) continue ;
  72.         sw_chasing = TRUE;
  73.         mnstr_chase = mnstr ;
  74.     }
  75. } 
  76.  
  77. /* see if the monster is local */
  78. if (sw_local) {
  79. /* deal with case of being chased by monster to another monster */
  80. if (sw_chasing) {
  81.  
  82.     switch(mnstr_chase->Type) {
  83. /* Mutant wombat scares off the local monser */
  84.     case N_wombat:
  85. /* put the local monster to sleep and swap location with wombat  */
  86.     mnstr_local->Status = F_asleep ;
  87.     --room[mnstr_local->Location][M_monster] ;
  88.     mnstr_local->Location = Wombat->Location ;
  89.     ++room[Wombat->Location][M_monster] ;
  90.     chaser(mnstr_chase, loc_pnt) ;
  91.     return ;
  92.  
  93. /* Hoop Snake breaks off the chase */
  94.     case N_hoop_snake:
  95. printf("                     ---- What a relief!! ---- \n") ;
  96. printf("           The dreaded hoop snake has broken off pursuit.\n");
  97. printf("                         But what is this!!\n\n") ;
  98. printf("You see yet another terrible creature!\n");
  99.     sw_replaced = TRUE  ;
  100.     break ;
  101.     }
  102.  
  103.     /* put the chasing monster to sleep */
  104.     monster_flag = F_no_monster ;
  105.     mnstr_chase->Status = F_asleep ;
  106.     sw_chasing = FALSE;
  107. }
  108.  
  109. /* local monster routines */
  110. switch(mnstr_local->Type) {
  111.  
  112. /* Revolutionary Guard local (only) behavior */
  113. case N_guards:
  114. monster_flag = F_monster_active ;
  115.  
  116. /* guards always kill after the letter bomb has exploded */
  117. if (sw_nogo) {
  118. printf("\nWith you are three men dressed in ripped and shredded ");
  119. printf("clothes which have\nbeen blackened by an explosion.  They ") ;
  120. printf("are armed to the teeth and insane\nwith rage.  They take ");
  121. printf("one look at you and proceed to cut you to pieces with\n");
  122. printf("their automatic weapons!\n\n");
  123.     ender(F_died) ;
  124. }
  125.  
  126. /* guards always kill if they see a rifle */
  127. if (Rifle->Location == B_have) {
  128. printf("With you are four men dressed in rather shabby clothes. ");
  129. printf("Three of them\nare clutching AK-47 assault rifles while ");
  130. printf("the fourth one is holding an Uzi\nmachine gun. They ") ;
  131. printf("take one look at the M-16 rifle which you are clutching,\n");
  132. printf("point their own weapons at you and proceed to hose you ");
  133. printf("with a hail of\nlead!  Five seconds later you look like ");
  134. printf("a piece of Swiss cheese.\n\n") ;
  135.     ender(F_died) ;
  136. }
  137.  
  138. switch (Guards->Status) {
  139.     case F_asleep:
  140.         Guards->Status = F_passive ;
  141. printf("With you are four men dressed in rather shabby clothes. ");
  142. printf("Three of them\nare clutching AK-47 assault rifles while ");
  143. printf("the fourth one is holding an Uzi\nmachine gun. They ") ;
  144. printf("search you but find nothing that is obviously a\n") ;
  145. printf("weapon.  They are in a quandary on what to do with ") ;
  146. printf("you, since you\nliterally appeared out of thin air.\n");
  147.         return ;
  148.     
  149.     case F_passive:
  150.         if (Mullah->Status == F_asleep) {
  151. printf("\nThe four men have concluded that the best thing to do\n");
  152. printf("with you is to take you to their superiors.  Two of the men\n");
  153. printf("roughly grab hold of you and fling you bodily through the\n");
  154. printf("doorway to the east.\n\n") ;
  155.         loc_pnt[0] = R_prayer;
  156.         long_descp(R_prayer) ;
  157.         chief_mullah(&count_down) ;
  158.         return ;
  159.         }
  160.         if (sw_guarded) {
  161. printf("\nAll of the guards are currently in the prayer room.\n") ;
  162.             sw_guarded = FALSE ;
  163.         }
  164.         return ;
  165.  
  166.     case F_aggressive:
  167.         Guards->Status = F_killing ;
  168. printf("\nThe four guards grab you by the arms and legs, and frog\n");
  169. printf("march you back into the prayer room.\n");
  170.         loc_pnt[0] = R_prayer;
  171.         return ;
  172.  
  173.     case F_killing:
  174. printf("\nThe guards are tired of fooling with you.  One of them\n") ;
  175. printf("hits you on the head with the butt of his rifle.  Then the\n");
  176. printf("other two guards drag you outside where you are executed\n");
  177. printf("before a jeering mob of 30,000 people!\n\n") ;
  178.         ender(F_died) ;
  179.  
  180. } /* end of the Guards local routine and switch block */
  181.  
  182.  
  183. /* Chief Mullah local (only) behaivor */
  184. case N_mullah:
  185. switch (Mullah->Status) {
  186.     case F_asleep:
  187.         chief_mullah(&count_down) ;
  188.         return ;
  189.  
  190.     case F_aggressive:
  191.         /* The Mullah takes any valuables dropped */
  192.         if (bribe_mullah(&count_down)) return ;
  193.  
  194.         /* The Mullah sees and takes the letter */
  195.         if (Letter->Location == R_prayer) {
  196.             see_letter(&count_down, &sw_letter);
  197.             return ;
  198.         }
  199.         count_down++ ;
  200.         switch(count_down) {
  201.         case 1:
  202. printf("\nThe Mullah is waiting for you to give him something.\n") ;
  203.             return ;
  204.         case 2:
  205. printf("\nThe Mullah is becoming quite impatient.  You had better\n") ;
  206. printf("do something soon!\n") ;
  207.         Mullah->Status = F_killing ;
  208.         }
  209.         return ;
  210.  
  211.     case F_passive:
  212.         count_down++ ;
  213.         switch(count_down) {
  214.  
  215.         case 1:
  216. printf("\nThe Mullah is examining the envelope of Muammar's letter.\n");
  217.             return ;
  218.  
  219.         case 2:
  220. printf("\nThe Mullah has turned the envelope over and is just\n") ;
  221. printf("about to open it.\n") ;
  222.             return ;
  223.  
  224.         case 3:
  225.             boom() ;
  226. printf("The Mullah opened the letter.  Needless to say, the letter\n") ;
  227. printf("was a bomb.  The good news is the nasty old Mullah died.\n");
  228. printf("The bad news is you died in the explosion as well!\n\n") ;
  229.             ender(F_died) ;
  230.         }
  231.  
  232.     case F_killing:
  233.         if (bribe_mullah(&count_down)) {
  234.             Mullah->Status = F_aggressive ;
  235.             return ;
  236.         }
  237.         if (Letter->Location==R_prayer) {
  238.             see_letter(&count_down, &sw_letter);
  239.             return ;
  240.         }
  241. printf("\n\"You are a brainless idiot!\" screams the Mullah!\n") ;
  242.         mullah_kills() ;
  243. } /* end of mullah status switch block */
  244.  
  245. /* The mullah sees Gaddafi's letter (this might be dead code) */
  246. /* temporary */
  247. see_letter(&count_down, &sw_letter);
  248. return ;
  249. /* end of the mullah local behavior routine */
  250.  
  251. /* Ned Kelly local behavior */
  252. case N_ned:
  253. if (monster_flag == F_no_monster) {
  254. printf("\nAs you approached the entrance of Ned Kelly's hide out, a ") ;
  255. printf("man walked out\n") ;
  256. printf("the front door and prevented you from entering.  He is ");
  257. printf("wearing an iron\n") ;
  258. printf("helmet with thin eye slits which completely covers ");
  259. printf("his head.  He has\n") ;
  260. printf("body armour made of thin sheets of iron that covers ");
  261. printf("his chest and abdomen.\n") ;
  262. printf("He is holding a 12 guage double barrel shotgun ");
  263. printf("and has a pistol on\nhis hip.  ") ;
  264. printf("I could be wrong but I think this is Ned Kelly!\n\n");
  265.     loc_pnt[0] = R_hideout_entr ;
  266.     monster_flag = F_monster_active ;
  267.     Ned->Status = F_passive ;
  268.     return ;
  269. }
  270. else {
  271.     if (Ned->Status == F_killing) ned_kills() ;
  272. printf("\nNed is not about to allow you to enter his hide out.  He ");
  273. printf("is now expressing\n") ;
  274. printf("his displeasure with your continued presence by cocking both ");
  275. printf("of the hammers on\n") ;
  276. printf("his shotgun and pointing it at your head.  I believe it is ");
  277. printf("time to go!!\n\n") ;
  278.     loc_pnt[0] = R_hideout_entr ;
  279.     Ned->Status = F_killing ;
  280.     return ;
  281. }
  282.  
  283. /* Mutant Wombat monster behavior */
  284. case N_wombat:
  285. sw_replaced = FALSE ; 
  286. if (monster_flag == F_no_monster) {
  287. printf("\n                        ----- OH NO!! -----\n") ;
  288. printf("                  You are in ***SERIOUS TROUBLE*** !!!\n") ;
  289. printf("Forget about hoop snakes, and forget about drop bears.  This ");
  290. printf("is the WORST\n") ;
  291. printf("thing that can be found in the ACME Mine.  You see before ");
  292. printf("you the awful\n") ;
  293. printf("spawn of the Pommy nuclear weapon's tests. Its ancestors ");
  294. printf("were inoffensive\n") ;
  295. printf("creatures, but gamma radiation has transformed this into...\n");
  296. printf("                      The Dreadful Mutant Wombat!! \n") ;
  297. printf("Normally I would advise you to run for your life.  However ");
  298. printf("there's really\n");
  299. printf("no point.  You can not out run this thing, and it's almost ");
  300. printf("impossible to\n");
  301. printf("kill.  You might as well just stand here and let it finish ");
  302. printf("you off as\n") ;
  303. printf("quickly and painlessly as possible.\n\n") ;
  304.     monster_flag = F_monster_active ;
  305.     Wombat->Status = F_aggressive ;
  306.     loc_pnt[1] = loc_pnt[0] ; 
  307.     loc_pnt[2] = 0 ; /* zero out the previous location */
  308. }
  309. else {
  310.     if (Wombat->Status == F_aggressive) {
  311. printf("\nThe wombat is approaching you.  Its mouth is wide open ") ;
  312. printf("showing its\n") ;
  313. printf("enormous canines.  Its claws are fully extended.  The ") ;
  314. printf("wombat sees\n") ;
  315. printf("you as an easy meal and is preparing to feast.\n") ;
  316.         Wombat->Status = F_killing ;
  317.         return ;
  318.     }
  319.     if (Wombat->Status == F_killing) {
  320.         /* The Mutant Wombat kills the player */
  321. printf("\nThe obscene creature has grasped you with its terrible ");
  322. printf("claws!  First the\n");
  323. printf("wombat rips off your right arm with a single jerk and ");
  324. printf("tosses it down its\n");
  325. printf("throat like it was an appetizer (which it was!).  Next ");
  326. printf("the monster studies\n");
  327. printf("you for a moment and then twists off your left leg and ") ; 
  328. printf("chews on it like\n") ;
  329. printf("a turkey drumstick.  After savoring your left leg, it ");
  330. printf("opens its mouth wide\n");
  331. printf("and stuffs you in head first!  Your last memory was ") ;
  332. printf("hearing the crunching\n");
  333. printf("of your own bones as the wombat's jaws clamped down!\n") ;
  334.         ender(F_died) ;
  335.     }
  336. }
  337. return ;
  338.  
  339. /* Drop Bear monster behavior */
  340. case N_drop_bear:
  341. sw_replaced = FALSE ; 
  342. if (monster_flag == F_no_monster) {
  343.     switch(bear_flag) {
  344. case 0:
  345. printf("\nAs you walk in, you see something that looks vaguely like") ;
  346. printf(" a koala bear\n") ;
  347. printf("sitting in the middle of the floor.  However this \"koala\"") ;
  348. printf(" has vampire\n") ;
  349. printf("teeth and blood drooling down the sides of its mouth. The") ;
  350. printf(" bear takes\n") ;
  351. printf("one look at you and climbs up the wall onto the ceiling.") ;
  352. printf(" It \n") ;
  353. printf("clings to the ceiling much like a fly and seems to be") ;
  354. printf(" positioning\n") ;
  355. printf("itself to be directly over you.  I could be wrong but I") ;
  356. printf(" think this is\n") ;
  357. printf("the deadly DROP BEAR! \n\n") ;
  358.     bear_flag = 1 ;
  359.     break ;
  360.  
  361. case 1:
  362. printf("\nJust as you walk in, a drop bear flashes by and hits") ;
  363. printf(" the ground with\n");
  364. printf("a THUNK.  That was close!  Had it hit you, and caught ") ;
  365. printf("hold with its\n");
  366. printf("claws, you would have been finished.  The dreaded ");
  367. printf("beast is now\n") ;
  368. printf("running up the wall towards the ceiling to give it ") ;
  369. printf("another go. I\n");
  370. printf("think we had better leave and soon!\n\n") ;;
  371.     bear_flag = 2 ;
  372.     break ;
  373.  
  374. case 2:
  375. printf("\nAs you walk in, you see a drop bear lounging lazily in") ;
  376. printf(" the middle of\n");
  377. printf("the floor. It rolls over and takes one look at you, ") ;
  378. printf("runs towards\n");
  379. printf("the wall and scampers up to the ceiling.  It is now ");
  380. printf("positioning\n") ;
  381. printf("itself to be directly over you.\n\n") ;
  382.     bear_flag = 1 ;
  383.     }
  384.  
  385. monster_flag = F_monster_active ;
  386. mnstr_local->Status = F_aggressive ;
  387. }
  388. else {
  389.     if (mnstr_local->Status == F_aggressive) {
  390. printf("\nThe drop bear is now positioned directly above you.  It is") ;
  391. printf(" hanging batlike\n") ;
  392. printf("by its rear paws, with its front arms reaching out with");
  393. printf(" claws fully \n") ;
  394. printf("extended.  Its mouth is wide open with its vampire teeth ");
  395. printf("clearly visible.\n") ;
  396. printf("I think this thing means business!  Let's make a hasty ");
  397. printf("departure!!\n") ;
  398.         mnstr_local->Status = F_killing ;
  399.         return ;
  400.     }
  401.     if (mnstr_local->Status == F_killing) {
  402.         /* The drop bear kills the player */
  403. printf("\nThe drop bear drops on top of you!  First it grabs hold ") ;
  404. printf("of you with its \n") ;
  405. printf("sharp claws that sink deep into your flesh.  Then it bites ");
  406. printf("into your neck \n") ; 
  407. printf("at the jugular vein and begins sucking your blood.  You ");
  408. printf("try desperately \n") ;
  409. printf("to pull the horrible monster off, but it only clamps on ");
  410. printf("harder and sucks \n") ; 
  411. printf("more vigorously.  Soon you grow weak from lack of blood, ");
  412. printf("and lapse into death. \n") ;
  413.         ender(F_died) ;
  414.     }
  415. }
  416. return ;
  417.  
  418. /* Hoop Snake monster behavior */
  419. case N_hoop_snake:
  420. if (monster_flag == F_no_monster) {
  421.     if (sw_replaced) { 
  422.         sw_replaced = FALSE  ;
  423. printf("\nA new and rested hoop snake rolls into view.  The ");
  424. printf("snake sees you, lets go of\n") ;
  425. printf("its tail and starts slithering towards you with fangs ");
  426. printf("at the ready. \n\n");
  427.     }
  428.     else {
  429.         if (!sw_hoop) {
  430. printf("\nSomething that looks vaguely like a barrel hoop rolls into ");
  431. printf("the passage. You \n") ;
  432. printf("suddenly realize to your horror that this is no hoop but a ");
  433. printf("snake biting its \n") ;
  434. printf("own tail.  The snake lets go of its tail and starts to ");
  435. printf("slither towards you \n") ;
  436. printf("like a regular, highly aggressive snake. \n\n");
  437.             sw_hoop = TRUE ;
  438.         }
  439.         else {
  440. printf("\nA hoop snake rolls towards you.  It lets go of its ");
  441. printf("tail and starts slithering\n") ;
  442. printf("in your direction. \n\n");
  443.         }
  444.     }
  445.     monster_flag = F_monster_active ;
  446.     mnstr_local->Status = F_aggressive ;
  447.     loc_pnt[1] = loc_pnt[0] ; 
  448.     loc_pnt[2] = 0 ; /* zero out the previous location */
  449.     return ;
  450. }
  451. else {
  452.     if (mnstr_local->Status == F_aggressive) {
  453. printf("\nThe hoop snake is coiling up in front of you and ") ;
  454. printf("hissing very aggressively. \n") ;
  455. printf("Venom is dripping from its sharp fangs and seems ") ;
  456. printf("to be burning holes into\n") ;
  457. printf("the stone floor.\n\n") ;
  458. printf("I think it would be wise for us to leave....  Quickly!!\n") ;
  459.         mnstr_local->Status = F_killing ;
  460.         return ;
  461.     }
  462.     if (mnstr_local->Status == F_killing) {
  463.         /* The Hoop Snake kills the player */
  464. printf("\nThe hoop snake strikes and bites you right on the nose!") ;
  465. printf("\n\nYou begin to thrash around ") ;
  466. printf("like a Baygon sprayed cocky.  The nerve poison \n") ;
  467. printf("makes you jerk around onto your back with your arms and ") ;
  468. printf("legs flailing about\n") ;
  469. printf("in the air.  With time your spasmodic twitching reduces") ;
  470. printf(" in frequency.  You\n") ;
  471. printf("slowly grind down to a halt with the coming of death. \n") ;
  472.         ender(F_died) ;
  473.     }
  474.  
  475. }
  476. } /* end of the local monster switch group */
  477. }
  478.  
  479. chaser(mnstr_chase, loc_pnt) ;
  480. return ;
  481.  
  482. } /* --- end of the "monster" subroutine --- */
  483.  
  484. #if (PROTOTYPE)
  485. void chaser(MONSTER_STRUCT *mnstr, int loc_pnt[3])
  486. #else
  487. chaser(mnstr, loc_pnt)
  488. MONSTER_STRUCT *mnstr ;
  489. int loc_pnt[3] ;
  490. #endif
  491. /********************************************************************/
  492. /*                                                                  */
  493. /*               --- Monster Chasing Subroutine ---                 */
  494. /*                                                                  */
  495. /* Software by Gary A. Allen, Jr. 8 December 1992, Version: Mk 2.0 */
  496. /*           (c) Copyright 1992 by Gary A. Allen, Jr.               */
  497. /*                                                                  */
  498. /********************************************************************/
  499. { 
  500.  
  501. #if (PROTOTYPE)
  502. void ned_kills(void), ender(int) ;
  503. void bugs(int) ;
  504. #endif
  505.  
  506. switch(mnstr->Type) {
  507. /* Ned Kelly */
  508. case N_ned:
  509.     if (loc_pnt[0] == R_hideout_entr) {
  510.         if (Ned->Status == F_passive) {
  511. printf("\nNed Kelly is standing in front of you and is holding a ");
  512. printf("12 guage shotgun\n") ;
  513. printf("in a rather menacing manner.  This guy is really game!\n\n") ;
  514. printf("I suggest we leave.....   and quickly!!\n\n") ;
  515.             Ned->Status = F_aggressive ;
  516.             return ;
  517.         }
  518.         if (Ned->Status == F_aggressive) {
  519. printf("\nNed seems to be getting impatient with you.  He is now ");
  520. printf("expressing his\n") ;
  521. printf("displeasure with your continued presence by cocking both ");
  522. printf("of the hammers on\n") ;
  523. printf("his shotgun and pointing it at your head.  I really think ");
  524. printf("we should be\n") ;
  525. printf("making a hasty departure!!\n\n") ;
  526.             Ned->Status = F_killing ;
  527.             return ;
  528.         }
  529.         if (Ned->Status != F_killing) {
  530.             monster_flag = F_no_monster ;
  531.             Ned->Status = F_asleep ;
  532.             return ;
  533.         }
  534.         else ned_kills() ;
  535.     }
  536.     else {
  537.         monster_flag = F_no_monster ;
  538.         Ned->Status = F_asleep ;
  539.         return ;
  540.     }
  541.  
  542. /* Mutant wombat chases */
  543. case N_wombat:
  544.     if (loc_pnt[0] == R_lift_inside) {
  545. printf("\nYou run as fast as you can into the lift.  You've made it! ") ;
  546. printf(" You're in the\n") ;
  547. printf("lift! However as you turn around, you realize to your horror") ;
  548. printf(" that the\n") ;
  549. printf("wombat has also made it inside the lift, and the door ");
  550. printf("is closing!!\n\n") ;
  551. printf("                     Ah, Stuff of Nightmares!!!\n") ;
  552. printf("          ---Trapped in a Lift with a Mutant Wombat!!!---\n\n");
  553. printf("This is just too horrible.  Let it suffice... You died. \n");
  554.     ender(F_died) ;
  555.     }
  556.     if (loc_pnt[0] == loc_pnt[2]) {
  557. printf("The wombat is in that direction.  You can't go that way!\n");
  558.         loc_pnt[0] = loc_pnt[1] ;
  559.         return ;
  560.     }
  561.     if (!sw_wombat) {
  562. printf("\nAs you flee down the passage, you hear the ");
  563. printf("\"THUD, THUD, THUD\" of the wombat\n") ;
  564. printf("trudging down the passage.  The horrible thing is after") ;
  565. printf(" you!  Give up\n") ;
  566. printf("all hope!  The wombat is driven by nuclear energy and") ;
  567. printf(" will never stop.\n\n") ;
  568.     sw_wombat = TRUE ;
  569.     }
  570.     else { 
  571. printf("\nThe wombat is still chasing you and not tiring. \n") ;
  572.     }
  573.     monster_flag = F_monster_active ;
  574.     mnstr->Status = F_aggressive ;
  575.     --room[mnstr->Location][M_monster] ;
  576.     ++room[loc_pnt[0]][M_monster] ;
  577.     mnstr->Location = loc_pnt[0] ;
  578.     loc_pnt[2] = loc_pnt[1] ;
  579.     loc_pnt[1] = loc_pnt[0] ;
  580.     return ;
  581.  
  582. /* Hoop Snake chases */
  583. case N_hoop_snake:
  584.     if (loc_pnt[0] == R_lift_inside) {
  585. printf("\nYou seek refuge from the hoop snake by fleeing into the ") ;
  586. printf("lift.  Just as you\n") ;
  587. printf("enter the lift, its door begins to close.  Unfortunately the") ;
  588. printf(" hoop snake\n") ;
  589. printf("rolls in the instant before the door is fully closed.\n\n") ;
  590. printf("We will not describe the unpleasant events that occur behind");
  591. printf(" the closed door\n");
  592. printf("of the lift. However one can hear screams, curses, futile ");
  593. printf("banging on the\n");
  594. printf("lift door and loud snake hissing.  After a few minutes ");
  595. printf("there is again silence.\n");
  596. printf("The lift door opens and the hoop snake rolls out and away. ");
  597. printf("A peek inside the\n");
  598. printf("lift reveals your corpse which is in the early phases of ");
  599. printf("rigor mortis.\n") ;
  600.     ender(F_died) ;
  601.     }
  602.     if (loc_pnt[0] == loc_pnt[2]) {
  603.         if (mnstr->Status == F_killing) {
  604. printf("The hoop snake is in that direction.  ") ;
  605. printf("You can't go that way!\n");
  606.         loc_pnt[0] = loc_pnt[1] ;
  607.         return ;
  608.         }
  609.         else {
  610. printf("You have run back the way you came and passed the hoop ");
  611. printf("snake, which\n") ;
  612. printf("is still biting its tail and rolling like a hoop. The ") ;
  613. printf("vile creature\n") ;
  614. printf("hisses in frustration and does a U-turn to continue ") ;
  615. printf("the chase.\n\n") ;
  616.         }
  617.     }
  618.     else {
  619.         if (!sw_snaked) {
  620. printf("\nAs you flee down the passage, you hear the characteristic ") ;
  621. printf("sound of reptilian\n") ;
  622. printf("scales rubbing the stone floor.  You look over your shoulder") ;
  623. printf(" and see the\n") ;
  624. printf("hoop snake is rolling along right behind you! The dreaded") ;
  625. printf(" thing is chasing you!!\n\n") ;
  626.             sw_snaked = TRUE ;
  627.         }
  628.         else {
  629. printf("\nThe hoop snake is rolling along behind you, and still") ;
  630. printf(" in hot pursuit!\n\n") ;
  631.         }
  632.     }
  633.     monster_flag = F_monster_active ;
  634.     mnstr->Status = F_aggressive ;
  635.     --room[mnstr->Location][M_monster] ;
  636.     ++room[loc_pnt[0]][M_monster] ;
  637.     mnstr->Location = loc_pnt[0] ;
  638.     loc_pnt[2] = loc_pnt[1] ;
  639.     loc_pnt[1] = loc_pnt[0] ;
  640.     return ;
  641.  
  642. /* Deactive all other possible monsters */
  643. case N_drop_bear:
  644. case N_mullah:
  645. case N_guards:
  646.     monster_flag = F_no_monster ;
  647.     mnstr->Status = F_asleep ;
  648.     return ;
  649. } /* end of the chasing monster switch group */
  650.  
  651. /* This logic detects a potentially bad error. */
  652. /*         Normally this is dead code.         */
  653. printf("Run time error detected in \"chaser\" subroutine.\n") ;
  654. printf("\"mnstr->Type\" value was %d.\n",  mnstr->Type) ;
  655. bugs(Logic_error) ;
  656. return ;  /* this is just a dummy return for Lint */
  657.  
  658. } /* --- end of the "chaser" subroutine --- */
  659.  
  660. #if (PROTOTYPE)
  661. void ned_kills(void)
  662. #else
  663. ned_kills()
  664. #endif
  665. /********************************************************************/
  666. /*                                                                  */
  667. /*           --- Ned Killy Kills the Player Subroutine ---           */
  668. /*                                                                  */
  669. /*  Software by Gary A. Allen, Jr. 7 December 1992, Version: Mk 1.0 */
  670. /*           (c) Copyright 1992 by Gary A. Allen, Jr.               */
  671. /*                                                                  */
  672. /********************************************************************/
  673. {
  674.  
  675. #if (PROTOTYPE)
  676. void ender(int) ;
  677. #endif
  678.  
  679. printf("\nWith an air of professional detachment, Ned Kelly pulls ");
  680. printf("both triggers\n") ;
  681. printf("on his shotgun and blows your head clean off your ") ;
  682. printf("shoulders. \n\n") ;
  683.     ender(F_died) ;
  684. } /* --- end of the ned_kills" subroutine --- */
  685.  
  686. #if (PROTOTYPE)
  687. void mullah_kills(void)
  688. #else
  689. mullah_kills()
  690. #endif
  691. /********************************************************************/
  692. /*                                                                  */
  693. /*             --- Mullah Kills the Player Subroutine ---           */
  694. /*                                                                  */
  695. /*  Software by Gary A. Allen, Jr. 7 December 1992, Version: Mk 1.0 */
  696. /*           (c) Copyright 1992 by Gary A. Allen, Jr.               */
  697. /*                                                                  */
  698. /********************************************************************/
  699. {
  700.  
  701. #if (PROTOTYPE)
  702. void ender(int) ;
  703. #endif
  704.  
  705. printf("\nWith that pronouncement, the chief Mullah claps his hands\n");
  706. printf("twice.  Two Revolutionary Guards drag you outside where you\n");
  707. printf("are executed before a jeering mob of 30,000 people!\n") ;
  708.     ender(F_died) ;
  709. } /* --- end of the "mullah_kills" subroutine --- */
  710.  
  711. #if (PROTOTYPE)
  712. void see_letter(int *count_on, int *sw_letter)
  713. #else
  714. see_letter(count_on, sw_letter)
  715. int *count_on, *sw_letter ;
  716. #endif
  717. /********************************************************************/
  718. /*                                                                  */
  719. /*         --- Mullah see Gaddafi's Letter Subroutine ---           */
  720. /*                                                                  */
  721. /*  Software by Gary A. Allen, Jr. 7 December 1992, Version: Mk 1.0 */
  722. /*           (c) Copyright 1992 by Gary A. Allen, Jr.               */
  723. /*                                                                  */
  724. /********************************************************************/
  725. {
  726. printf("\nThe Mullah gives the letter a casual glance, then\n");
  727. printf("suddenly his face lights up and he claps his hands with\n") ;
  728. printf("glee.\n\n") ;
  729. printf("\"It's a letter from my old friend Muammar!\", he exclaims!\n");
  730. printf("\"This is an occasion for much jubulation.  As a token of\n");
  731. printf("my esteem take this ancient gong clapper made of gold and\n");
  732. printf("ivory.  It was recovered from the personal collection of\n") ;
  733. printf("the deposed Shah. It once belonged to the ancient Persian\n") ;
  734. printf("King Cyrus and is priceless!\"\n\n") ;
  735. printf("With this glad tiding the Mullah hands you the ancient\n") ;
  736. printf("clapper and then reaches down to pick up the letter from\n") ;
  737. printf("his old friend.\n") ;
  738.  
  739. Mullah->Status = F_passive ;
  740. Guards->Status = F_passive ;
  741. Letter->Location = B_destroyed ;
  742. --room[R_prayer][M_obj_cnt] ;
  743. Clapper->Location = B_have ;
  744. Detector->Location = R_guard ;
  745. ++room[R_guard][M_obj_cnt] ;
  746. carry_count++ ;
  747. carry_weight += Clapper->Weight ;
  748. *sw_letter = TRUE ;
  749. *count_on = 0 ;
  750.  
  751. } /* --- end of the "see_letter" subroutine --- */
  752.  
  753. #if (PROTOTYPE)
  754. void chief_mullah(int *count_on)
  755. #else
  756. chief_mullah(count_on)
  757. int *count_on ;
  758. #endif
  759. /********************************************************************/
  760. /*                                                                  */
  761. /*               --- Chief Mullah Subroutine ---                    */
  762. /*                                                                  */
  763. /*  Software by Gary A. Allen, Jr. 8 December 1992, Version: Mk 1.0 */
  764. /*           (c) Copyright 1992 by Gary A. Allen, Jr.               */
  765. /*                                                                  */
  766. /********************************************************************/
  767. {
  768. register int i ;
  769.  
  770. OBJECT_STRUCT *pnt ;
  771.  
  772. #if (PROTOTYPE)
  773. void hold_it(void) ;
  774. void mullah_kills(void) ;
  775. #endif
  776.  
  777. printf("\n") ;
  778. hold_it() ;
  779. Mullah->Status = F_aggressive ;
  780. Guards->Status = F_aggressive ;
  781.  
  782. printf("The chief Mullah (or whatever he is) who is sitting on the\n");
  783. printf("dias glares in your direction and begins expounding in a\n");
  784. printf("long monologue in Farsi. One of his Revolutionary Guards\n") ;
  785. printf("starts translating the Mullah's words into fairly good\n");
  786. printf("English (with an American accent!). Here is what he said:\n") ;
  787. printf("\n\"I can see by your slouch hat, singlet and short pants\n");
  788. printf("that you are a good-for-nothing satanic Australian. I am\n");
  789. printf("compelled to point out that your sort is most unwelcomed in\n");
  790.  
  791. /* see if the player has any valuables or the letter */
  792. pnt = object ;
  793. for (i = 0; i < Objcnt; i++) { 
  794.     if ((pnt->Location == B_have)&& 
  795.          ((V_letter == pnt->ID)||(pnt->Value > 0))) {
  796.  
  797. /* Player has something the Mullah wants, so he lives */
  798. printf("this holy precinct.  Unless you can provide some good\n");
  799. printf("reasons (preferably financial ones) to the contrary, I\n");
  800. printf("shall order you to be executed immediately for the\n");
  801. printf("amusement and edification of the local populace!\"\n") ;
  802.             *count_on = 0 ;
  803.             return ;    
  804.     }
  805.     pnt++ ;
  806. }
  807.  
  808. /* Player has no valuables and doesn't have the letter so he dies */
  809. printf("this holy precinct.  Since you have nothing of value, our\n");
  810. printf("usual practice would be to take you hostage and extract a\n");
  811. printf("ransom from your government.  However the Ozzie Dollar\n") ;
  812. printf("doesn't buy all that much anymore, so we'll just execute\n");
  813. printf("you and leave it at that.\"\n") ;
  814. mullah_kills() ;
  815.  
  816. } /* --- end of the "chief_mullah" subroutine --- */
  817.  
  818. #if (PROTOTYPE)
  819. int bribe_mullah(int *count_on)
  820. #else
  821. int bribe_mullah(count_on)
  822. int *count_on ;
  823. #endif
  824. /********************************************************************/
  825. /*                                                                  */
  826. /*               --- Chief Mullah Subroutine ---                    */
  827. /*                                                                  */
  828. /*  Software by Gary A. Allen, Jr. 3 January 1993 , Version: Mk 1.0 */
  829. /*           (c) Copyright 1993 by Gary A. Allen, Jr.               */
  830. /*                                                                  */
  831. /********************************************************************/
  832. {
  833. register int j ;
  834. int sw_bribe ;
  835. OBJECT_STRUCT *pnt ;
  836.  
  837. /* The Mullah takes any valuables dropped */
  838. sw_bribe = FALSE ;
  839. pnt = object ;
  840. for (j = 0; j < Objcnt; j++) { 
  841.     if ((pnt->Location == R_prayer) && (pnt->Value > 0)) {
  842.         pnt->Location = B_destroyed ;
  843.         --room[R_prayer][M_obj_cnt] ;
  844.         sw_bribe = TRUE ;
  845.     }
  846.     pnt++ ;
  847. }
  848. if (sw_bribe) {
  849. printf("\nOne of the guards picks up the treasure and hands it over to\n") ;
  850. printf("the chief Mullah who discretely pockets it within his robe.  The\n") ;
  851. printf("Mullah then looks expectantly towards you...  I think he wants\n") ;
  852. printf("more treasure.\n") ;
  853.     *count_on = 0 ;
  854.     return(TRUE) ;    
  855. }
  856. return(FALSE) ;
  857.  
  858. } /* --- end of the "bribe_mullah" function --- */
  859.  
  860.